home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / pascal / bp7_os2.zip / MAKEPM.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-10  |  517b  |  24 lines
  1. Program MakePM;  {--- 1993 Matthias Withopf / c't ---}
  2. Var
  3.   f : File of Byte;
  4.   b : Byte;
  5. Begin
  6.   If ParamCount <> 1 then
  7.     Begin
  8.       WriteLn('Syntax: MAKEPM <TEST.EXE>');
  9.       Halt(20);
  10.     End;
  11.   Assign(f,ParamStr(1)); Reset(f);
  12.   Seek(f,$010D); Read(f,b);
  13.   If b in [2,3] then
  14.     Begin
  15.       Seek(f,$010D); b := 3; Write(f,b);
  16.     End
  17.   else
  18.     Begin
  19.       WriteLn('Error in setting the application flags.');
  20.       WriteLn('Possibly not an OS/2 program.');
  21.     End;
  22.   Close(f);
  23. End.
  24.